home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / demos / samples / SText.tcl.z / SText.tcl
Encoding:
Text File  |  1999-01-26  |  2.3 KB  |  72 lines
  1. # Tix Demostration Program
  2. #
  3. # This sample program is structured in such a way so that it can be
  4. # executed from the Tix demo program "widget": it must have a
  5. # procedure called "RunSample". It should also have the "if" statment
  6. # at the end of this file so that it can be run as a standalone
  7. # program using tixwish.
  8.  
  9. # This file demonstrates the use of the tixScrolledText widget.
  10. #
  11.  
  12. proc RunSample {w} {
  13.  
  14.     # We create the frame and the ScrolledText widget
  15.     # at the top of the dialog box
  16.     #
  17.     frame $w.top -relief raised -bd 1
  18.  
  19.     # Create a Scrolled Text widget.
  20.     #
  21.     tixScrolledText $w.top.a
  22.     pack $w.top.a -expand yes -fill both -padx 10 -pady 10 -side left
  23.  
  24.     # Use a ButtonBox to hold the buttons.
  25.     #
  26.     tixButtonBox $w.box -orientation horizontal
  27.     $w.box add ok     -text Ok     -underline 0 -command "destroy $w" \
  28.     -width 6
  29.     $w.box add cancel -text Cancel -underline 0 -command "destroy $w" \
  30.     -width 6
  31.  
  32.     pack $w.box -side bottom -fill x
  33.     pack $w.top -side top -fill both -expand yes
  34.  
  35.     # Put the junk inside the text subwidget of the ScrolledText widget
  36.     #
  37.     $w.top.a subwidget text insert end {
  38. Mon, 19 Jun 1995 11:39:52        comp.lang.tcl              Thread   34 of  220
  39. Lines 353       A new way to put text and bitmaps together
  40. ioi@xpi.com                Ioi K. Lam at Expert Interface Technologies
  41.  
  42. Hi,
  43.  
  44. I have implemented a new image type called "compound". It allows you
  45. to glue together a bunch of bitmaps, images and text strings together
  46. to form a bigger image. Then you can use this image with widgets that
  47. support the -image option. This way you can display very fancy stuffs
  48. in your GUI. For example, you can display a text string string
  49. together with a bitmap, at the same time, inside a TK button widget. A
  50. screenshot of compound images can be found at the bottom of this page:
  51.  
  52.         http://www.xpi.com/tix/screenshot.html
  53.  
  54. You can also you is in other places such as putting fancy bitmap+text
  55. in menus, tabs of tixNoteBook widgets, etc. This feature will be
  56. included in the next release of Tix (4.0b1). Count on it to make jazzy
  57. interfaces!}
  58. }
  59.  
  60.  
  61. # This "if" statement makes it possible to run this script file inside or
  62. # outside of the main demo program "widget".
  63. #
  64. if {![info exists tix_demo_running]} {
  65.     wm withdraw .
  66.     set w .demo
  67.     toplevel $w
  68.     RunSample $w
  69.     bind $w <Destroy> exit
  70. }
  71.  
  72.